home *** CD-ROM | disk | FTP | other *** search
/ A.C.E. 2 / ACE CD 2.iso / FILES / GAMES / 1-L / CLOCKW1.DMS / CLOCKW1.adf / Install Clockwiser < prev    next >
Text File  |  1994-05-10  |  10KB  |  332 lines
  1. ; * Clockwiser Installation Script File Written by Peter Schaap
  2. ; *
  3. ; * A Team Hoi Games Production
  4. ; *
  5. ; * (C) Copyright 1994 Rasputin Software, All Rights Reserved
  6. ; *
  7. ; * Another fine product made in Holland!
  8.  
  9.  
  10. (set #clockwiser-install
  11. (cat "\nAbout Clockwiser"
  12.      "\n"
  13.      "\nA Team Hoi Games Production"
  14.      "\n(C) Copyright 1994 by"
  15.      "\nRasputin Software."
  16.      "\nAll Rights Reserved"
  17.      "\n\nThis installation utility"
  18.      "\nwill install the necessary files on your"
  19.      "\nharddisk-drive."
  20. ))
  21.  
  22. (set #clockwiser-install-help
  23. (cat "\nJust click proceed to continue."
  24.      "\n"
  25.      "\nThis installation program is for"
  26.      "\nhard disk users only!"
  27. ))
  28.  
  29. ; *******************************************
  30. ; * Install - Scherm 2                      *
  31. ; *******************************************
  32.  
  33. (set #clockwiser-install-part2
  34. (cat "\nInstall Clockwiser"
  35.      "\nThis program will install"
  36.      "\nClockwiser on your harddisk"
  37.      "\n\nProceed ?"
  38. ))
  39.  
  40. (set #clockwiser-install-part2-help
  41. (cat ""
  42. ))
  43.  
  44. ; ************************************************
  45. ; * Finished Installation (finally... :-D)       *
  46. ; ************************************************
  47.  
  48. (set #clockwiser-install-finished
  49. (cat "\nInstallation of Clockwiser has been completed."
  50.      "\n"
  51.      "\nGood luck!"
  52. ))
  53.  
  54. (set #clockw-install-finished-help
  55. (cat ""
  56. ))
  57.  
  58. ; ******************************************
  59. ; * Please Insert DISK1                    *
  60. ; ******************************************
  61.  
  62. (set #insert-clockwiser-disk1
  63. (cat "\nPlease insert Clockwiser disk 1"
  64.      "\nin any drive."
  65. ))
  66.  
  67. (set #insert-clockwiser-disk1-help
  68. (cat ""
  69. ))
  70.  
  71. ; ******************************************
  72. ; * Please Insert DISK2                    *
  73. ; ******************************************
  74.  
  75. (set #insert-clockwiser-disk2
  76. (cat "\nPlease insert Clockwiser disk 2"
  77.      "\nin any drive."
  78. ))
  79.  
  80. (set #insert-clockwiser-disk2-help
  81. (cat ""
  82. ))
  83.  
  84. (procedure addtouserstartup
  85. ;
  86. ; Maakt de Clockwiser: assign aan... ennuh... voegt die toe aan de
  87. ; userstartup. c'est la...
  88. ;
  89. ;    userStartupAppName
  90. ;    userStartupAssignName
  91. ;    userStartupAssignToName
  92. ;    userStartupHelp
  93. ;
  94.     (
  95.  
  96.      (set userStartupAppName         "Clockwiser")
  97.      (set userStartupAssignName      "Clockwiser")
  98.      (set userStartupAssignToName    clockwiserdir)
  99.      (set userStartupHelp            "When the Installers programs asks if you want to place this assignment into your S:user-startup file, you should selected the Proceed button; otherwise, the next time you boot up your machine, the program won't be able to find the necessary files it needs to run.\n")
  100.     (startup
  101.         (userStartupAppName)
  102.         (prompt ("Add %s: assignment to \"S:user-startup\"?" userStartupAssignName))
  103.         (help    userStartupHelp
  104.             "\n"
  105.             ("Select the Proceed button to add an %s: assignment to the S:user-startup file.\n" userStartupAssignName)
  106.             "\n"
  107.             @startup-help)
  108.         (command ("assign %s: \"%s\"" userStartupAssignName userStartupAssignToName))
  109.     )
  110.     (makeassign userStartupAssignName userStartupAssignToName)
  111.     )
  112. )
  113.  
  114. (procedure addtostartupsequence
  115. ;
  116. ; Maakt de Clockwiser: assign aan... ennuh... voegt die toe aan de
  117. ; startup sequence. c'est la...
  118. ;
  119. ;    userStartupAppName
  120. ;    userStartupAssignName
  121. ;    userStartupAssignToName
  122. ;    userStartupHelp
  123. ;
  124.     (
  125.      (set userStartupAppName         "Clockwiser")
  126.      (set userStartupAssignName      "Clockwiser")
  127.      (set userStartupAssignToName    clockwiserdir)
  128.      (set userStartupHelp            "When the Installers programs asks if you want to place this assignment into your S:user-startup file, you should selected the Proceed button; otherwise, the next time you boot up your machine, the program won't be able to find the necessary files it needs to run.\n")
  129.  
  130.     (startup
  131.         (userStartupAppName)
  132.         (prompt ("Add %s: assignment to \"S:startup-sequence\"?" userStartupAssignName))
  133.         (help    userStartupHelp
  134.             "\n"
  135.             ("Select the Proceed button to add an %s: assignment to the S:startup-sequence file.\n" userStartupAssignName)
  136.             "\n"
  137.             @startup-help)
  138.         (command ("assign %s: \"%s\"" userStartupAssignName userStartupAssignToName))
  139.     )
  140.     (makeassign userStartupAssignName userStartupAssignToName)
  141.     )
  142. )
  143.  
  144. ;*************************************************************************
  145. ;*************************************************************************
  146. ;*************************************************************************
  147. ;******************************** GENERAL ********************************
  148. ;*************************************************************************
  149. ;*************************************************************************
  150. ;*************************************************************************
  151.  
  152. ; ***********************************
  153. ; Specified directory does not exists
  154. ; ***********************************
  155.  
  156. (set #thatdirne
  157. (cat "\n\nThe directory you specified does not exist."
  158.      "\nDo you want to create it?"
  159. ))
  160.  
  161. (set #thatdirne-help
  162. (cat "\nYou specified a directory that does not exist."
  163.      "\n\nIf you choose Yes, the directory will be created."
  164.      "\n\nIf you choose No, you will have the opportunity to"
  165.      "\nspecify another directory."
  166. ))
  167.  
  168. ; **************************************************
  169. ; Ask the user in which drawer to install Clockwiser
  170. ; **************************************************
  171.  
  172. (set #whereputclockwiser
  173. (cat "In which disk or drawer should Clockwiser be installed?"
  174. ))
  175.  
  176. (set #whereputclockwiser-help
  177. (cat "\nThis will usually be a directory on a hard drive"
  178.      "\nnamed Clockwiser.  However, you may name it anything"
  179.      "\nyou like.  The install script will create the"
  180.      "\ndirectory if it does not exist.\n\n"
  181.      @askdir-help
  182. ))
  183.  
  184. ;*************************************************************************
  185. ;*************************************************************************
  186. ;*************************************************************************
  187. ;******************************** JUMP IN! *******************************
  188. ;*************************************************************************
  189. ;*************************************************************************
  190. ;*************************************************************************
  191.  
  192. ; ***********************************************************
  193. ;                Start of the Main Program!
  194. ; ***********************************************************
  195.  
  196. (if (askbool (prompt #clockwiser-install)
  197.              (help #clockwiser-install-help)
  198.              (choices "Continue" "End Installation")
  199.              (default 0))
  200. (
  201. (if (askbool (prompt #clockwiser-install-part2)
  202.              (help #clockwiser-install-part2-help)
  203.              (choices "Yes" "End Installation")
  204.              (default 1) )
  205. (
  206.  
  207. ; ****************************************************
  208. ; * Now, set the default directory for search a path *
  209. ; ****************************************************
  210.  
  211.     (set clockwiserdir (getassign "Work" "v"))
  212.  
  213.     ; *****************************************************
  214.     ; * Did we get anything ? If not, set default to sys: *
  215.     ; *****************************************************
  216.  
  217.     ( if (= clockwiserdir "") (set clockwiserdir "sys:") )
  218.     (set goodresp FALSE)
  219.  
  220.     (while (= goodresp FALSE)
  221.     (
  222.         (set target (askdir (prompt #whereputclockwiser)
  223.                 (help #whereputclockwiser-help)
  224.                 (newpath)
  225.                 (default "Sys:Clockwiser")))
  226.  
  227.         (if (not (exists target))
  228.         (
  229.                 (if (askbool (prompt (#thatdirne))
  230.                          (help (#thatdirne-help))
  231.                           (default 0) )
  232.                 (
  233.                     (makedir target (infos) )
  234.                     (set goodresp TRUE)
  235.                 ))
  236.         )
  237.         (
  238.             (set goodresp TRUE)
  239.         )
  240.         )
  241.     )
  242.      )
  243.  
  244.     (set clockwiserdir target)
  245.     (set @default-dest target)
  246.  
  247. ; * Dan maar zo... ff kijken: V36 > -> user-startup.... < V36 -> startup-
  248. ; * sequence...
  249.  
  250.     (set vernum (getversion "exec.library" (resident)))
  251.     (set ver (/ vernum 65536))
  252.     (if (< ver 36)      ; mot kleiner zijn! :-
  253.       (
  254.                (addtostartupsequence)
  255.           )
  256.           (
  257.                (addtouserstartup)
  258.           )
  259.         )
  260.  
  261.  
  262. ; *********************************************************
  263. ; * HE!!! EH... DE DISK MOT IN DE DRIVE ZITTUH!!!!!
  264. ; *********************************************************
  265.  
  266. ; D laten staan... slaat op Disk...
  267.  
  268.     (if (not (getassign "Clock1" "d"))
  269.     (
  270.         (askdisk (prompt #insert-clockwiser-disk1)
  271.              (help #insert-clockwiser-disk1-help)
  272.              (dest "Clock1")
  273.         )
  274.     )
  275.     )
  276.  
  277. ; *********************************************************
  278. ; * INSTALL SCRIPT FILE HERE!!!!!!!!!!!!!!
  279. ; *********************************************************
  280.  
  281.     (copyfiles (source "Clock1:Clockwiser")
  282.                (dest clockwiserdir)
  283.                 (infos)
  284.      )
  285.     (copyfiles (source "Clock1:Clockwiser.info")
  286.                (dest clockwiserdir)
  287.                 (infos)
  288.      )
  289.  
  290. ; *********************************************************
  291. ; * INSTALL INTRO FILE HERE!!!!!!!!!!!!!!
  292. ; *********************************************************
  293.  
  294.     (copyfiles (source "Clock1:ClockIntro")
  295.                (dest clockwiserdir)
  296.                 (infos)
  297.      )
  298.  
  299.     (if (not (getassign "Clock2" "d"))
  300.     (
  301.         (askdisk (prompt #insert-clockwiser-disk2)
  302.              (help #insert-clockwiser-disk2-help)
  303.              (dest "Clock2")
  304.         )
  305.     )
  306.     )
  307.  
  308. ; *********************************************************
  309. ; * INSTALL GAMERS FILE HERE!!!!!!!!!!!!!!
  310. ; *********************************************************
  311.  
  312.     (copyfiles (source "Clock2:ClockGame")
  313.                (dest clockwiserdir)
  314.                 (infos)
  315.      )
  316.  
  317. ; ***********************************************************
  318. ; * HIER "FF" ASSIGN NAAR CLOCKWISERDIR AAN SCRIPT TOEVOEGUH!
  319. ; ***********************************************************
  320.  
  321. )
  322. )
  323. )
  324.     (askbool (prompt #clockwiser-install-finished)
  325.               (help #clockw-install-finished-help)
  326.                  (choices "Proceed")
  327.              (default 0))
  328.  
  329.     (set target clockwiserdir)
  330.     (set @default-dest target)
  331. )
  332.